VERSION 5.00
Object = "{5C6863A4-877B-4EF1-9BD4-A17AD61FBEDB}#1.0#0"; "ChamaleonButton.ocx"
Object = "{3C31D90E-7758-41FD-B929-86A40CE9199D}#1.0#0"; "POSControl.ocx"
Object = "{19BD1EA6-6E36-45BA-AEBD-BCF3093017CC}#11.0#0"; "GorditoButton.ocx"
Begin VB.Form frmEntrarPagos 
   BorderStyle     =   3  'Fixed Dialog
   ClientHeight    =   8085
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   13935
   BeginProperty Font 
      Name            =   "Book Antiqua"
      Size            =   8.25
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "frmPagos.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   8085
   ScaleWidth      =   13935
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin POSControl.lblTotal lblTotal1 
      Height          =   885
      Left            =   10050
      TabIndex        =   22
      Top             =   30
      Width           =   3885
      _ExtentX        =   6853
      _ExtentY        =   1561
   End
   Begin VB.Frame fraContenedor 
      BackColor       =   &H00FFC0C0&
      BorderStyle     =   0  'None
      ClipControls    =   0   'False
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   7155
      Left            =   0
      TabIndex        =   3
      Top             =   930
      Width           =   13905
      Begin GorditoButton.Boton cmdAgregarPago 
         Height          =   705
         Left            =   11160
         TabIndex        =   25
         Top             =   870
         Width           =   2595
         _ExtentX        =   4577
         _ExtentY        =   1244
         Caption         =   "Pago"
         BackColor       =   255
         ResalteColor    =   16711680
         IntensityColor  =   4
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Book Antiqua"
            Size            =   20.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   16777215
      End
      Begin GorditoButton.Boton cmdPagos 
         Height          =   645
         Index           =   0
         Left            =   390
         TabIndex        =   23
         Top             =   1500
         Width           =   2805
         _ExtentX        =   4948
         _ExtentY        =   1138
         Caption         =   "Monto"
         BackColor       =   255
         ResalteColor    =   16711680
         IntensityColor  =   4
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Book Antiqua"
            Size            =   20.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   16777215
      End
      Begin VB.Frame frParametros 
         BackColor       =   &H80000014&
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   615
         Left            =   0
         TabIndex        =   17
         Top             =   0
         Width           =   15255
         Begin VB.Label Label6 
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "Ingresar Pago"
            BeginProperty Font 
               Name            =   "Book Antiqua"
               Size            =   20.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   480
            Left            =   240
            TabIndex        =   18
            Top             =   60
            Width           =   2595
         End
      End
      Begin VB.ComboBox cboFormaPago 
         BeginProperty Font 
            Name            =   "Book Antiqua"
            Size            =   20.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   600
         ItemData        =   "frmPagos.frx":000C
         Left            =   3750
         List            =   "frmPagos.frx":0022
         Style           =   2  'Dropdown List
         TabIndex        =   0
         Top             =   750
         Width           =   5265
      End
      Begin VB.TextBox txtMonto 
         Alignment       =   1  'Right Justify
         Appearance      =   0  'Flat
         BorderStyle     =   0  'None
         BeginProperty Font 
            Name            =   "Book Antiqua"
            Size            =   20.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   480
         Left            =   3750
         TabIndex        =   1
         Text            =   "00.00"
         Top             =   1590
         Width           =   1965
      End
      Begin VB.TextBox txtDescuento 
         Alignment       =   1  'Right Justify
         Appearance      =   0  'Flat
         BorderStyle     =   0  'None
         BeginProperty Font 
            Name            =   "Book Antiqua"
            Size            =   20.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   480
         Left            =   3750
         MaxLength       =   8
         TabIndex        =   2
         Text            =   "00.00"
         Top             =   3360
         Width           =   1965
      End
      Begin VB.Frame Frame2 
         BackColor       =   &H80000014&
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   615
         Left            =   0
         TabIndex        =   15
         Top             =   2460
         Width           =   15255
         Begin VB.Label Label3 
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "Aplicar Descuentos"
            BeginProperty Font 
               Name            =   "Book Antiqua"
               Size            =   20.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   480
            Left            =   90
            TabIndex        =   16
            Top             =   90
            Width           =   3660
         End
      End
      Begin VB.Frame Frame1 
         BackColor       =   &H00FFC0C0&
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   2115
         Left            =   120
         TabIndex        =   6
         Top             =   4860
         Width           =   8415
         Begin VB.Label lblTotalPagado 
            Alignment       =   1  'Right Justify
            BackStyle       =   0  'Transparent
            Caption         =   "00.00"
            BeginProperty Font 
               Name            =   "Book Antiqua"
               Size            =   20.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H00808080&
            Height          =   465
            Left            =   5670
            TabIndex        =   12
            Top             =   360
            Width           =   1995
         End
         Begin VB.Label lblFaltaDescargar 
            Alignment       =   1  'Right Justify
            BackStyle       =   0  'Transparent
            Caption         =   "00.00"
            BeginProperty Font 
               Name            =   "Book Antiqua"
               Size            =   20.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H00808080&
            Height          =   465
            Left            =   5670
            TabIndex        =   11
            Top             =   870
            Width           =   1995
         End
         Begin VB.Label Label1 
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "TOTAL PAGADO S/."
            BeginProperty Font 
               Name            =   "Book Antiqua"
               Size            =   20.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H00808080&
            Height          =   480
            Index           =   0
            Left            =   120
            TabIndex        =   10
            Top             =   240
            Width           =   4425
         End
         Begin VB.Label Label2 
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "FALTA DESCARGAR S/."
            BeginProperty Font 
               Name            =   "Book Antiqua"
               Size            =   20.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H00808080&
            Height          =   450
            Left            =   150
            TabIndex        =   9
            Top             =   840
            Width           =   5190
         End
         Begin VB.Label Label4 
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "CAMBIO S/."
            BeginProperty Font 
               Name            =   "Book Antiqua"
               Size            =   20.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H00808080&
            Height          =   480
            Left            =   120
            TabIndex        =   8
            Top             =   1410
            Width           =   3195
         End
         Begin VB.Label lblCambio 
            Alignment       =   1  'Right Justify
            BackStyle       =   0  'Transparent
            Caption         =   "00.00"
            BeginProperty Font 
               Name            =   "Book Antiqua"
               Size            =   20.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H00808080&
            Height          =   465
            Left            =   5670
            TabIndex        =   7
            Top             =   1380
            Width           =   1995
         End
      End
      Begin VB.Frame frListaResultados 
         BackColor       =   &H80000014&
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   615
         Left            =   30
         TabIndex        =   4
         Top             =   4230
         Width           =   15255
         Begin VB.Label Label7 
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "Totales"
            BeginProperty Font 
               Name            =   "Book Antiqua"
               Size            =   20.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   480
            Left            =   90
            TabIndex        =   5
            Top             =   120
            Width           =   1365
         End
      End
      Begin ChamaleonButton.ChameleonBtn cmdAplicarDscto 
         Height          =   645
         Left            =   6690
         TabIndex        =   20
         Top             =   3330
         Width           =   2775
         _ExtentX        =   4895
         _ExtentY        =   1138
         BTYPE           =   3
         TX              =   "&Aplicar Dscto"
         ENAB            =   -1  'True
         BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Book Antiqua"
            Size            =   20.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         COLTYPE         =   1
         FOCUSR          =   -1  'True
         BCOL            =   15790320
         BCOLO           =   15790320
         FCOL            =   0
         FCOLO           =   0
         MCOL            =   12632256
         MPTR            =   1
         MICON           =   "frmPagos.frx":0064
         UMCOL           =   -1  'True
         SOFT            =   0   'False
         PICPOS          =   0
         NGREY           =   0   'False
         FX              =   0
         HAND            =   0   'False
         CHECK           =   0   'False
         VALUE           =   0   'False
      End
      Begin ChamaleonButton.ChameleonBtn cmdDeshacerDscto 
         Height          =   645
         Left            =   6690
         TabIndex        =   21
         Top             =   3330
         Width           =   2775
         _ExtentX        =   4895
         _ExtentY        =   1138
         BTYPE           =   3
         TX              =   "&Deshacer Dcto"
         ENAB            =   -1  'True
         BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Book Antiqua"
            Size            =   20.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         COLTYPE         =   1
         FOCUSR          =   -1  'True
         BCOL            =   15790320
         BCOLO           =   15790320
         FCOL            =   0
         FCOLO           =   0
         MCOL            =   12632256
         MPTR            =   1
         MICON           =   "frmPagos.frx":0080
         UMCOL           =   -1  'True
         SOFT            =   0   'False
         PICPOS          =   0
         NGREY           =   0   'False
         FX              =   0
         HAND            =   0   'False
         CHECK           =   0   'False
         VALUE           =   0   'False
      End
      Begin GorditoButton.Boton cmdPagos 
         Height          =   645
         Index           =   1
         Left            =   360
         TabIndex        =   24
         Top             =   3270
         Width           =   2805
         _ExtentX        =   4948
         _ExtentY        =   1138
         Caption         =   "Descuento"
         BackColor       =   255
         ResalteColor    =   16711680
         IntensityColor  =   4
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Book Antiqua"
            Size            =   20.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   16777215
      End
      Begin GorditoButton.Boton cmdEliminarPago 
         Height          =   705
         Left            =   11160
         TabIndex        =   26
         Top             =   1620
         Width           =   2595
         _ExtentX        =   4577
         _ExtentY        =   1244
         Caption         =   "Eliminar"
         BackColor       =   255
         ResalteColor    =   16711680
         IntensityColor  =   4
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Book Antiqua"
            Size            =   20.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   16777215
      End
      Begin GorditoButton.Boton cmdRegistrar 
         Height          =   1065
         Left            =   11850
         TabIndex        =   27
         Top             =   4920
         Width           =   1275
         _ExtentX        =   2249
         _ExtentY        =   1879
         Caption         =   "OK"
         BackColor       =   255
         ResalteColor    =   16711680
         IntensityColor  =   4
         ButtonStyle     =   0
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Book Antiqua"
            Size            =   20.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   16777215
      End
      Begin GorditoButton.Boton cmdSalir 
         Height          =   1065
         Left            =   11910
         TabIndex        =   28
         Top             =   6060
         Width           =   1275
         _ExtentX        =   2249
         _ExtentY        =   1879
         Caption         =   "Exit"
         BackColor       =   255
         ResalteColor    =   16711680
         IntensityColor  =   4
         ButtonStyle     =   0
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Book Antiqua"
            Size            =   20.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   16777215
      End
      Begin VB.Label lblDscto 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "S/. 99.99"
         ForeColor       =   &H00FFFFFF&
         Height          =   225
         Left            =   4140
         TabIndex        =   14
         Top             =   3300
         Width           =   690
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Forma de Pago :"
         BeginProperty Font 
            Name            =   "Book Antiqua"
            Size            =   20.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00808080&
         Height          =   480
         Index           =   2
         Left            =   270
         TabIndex        =   19
         Top             =   810
         Width           =   2955
      End
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "Registrar Pagos "
      BeginProperty Font 
         Name            =   "Book Antiqua"
         Size            =   20.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   480
      Index           =   1
      Left            =   30
      TabIndex        =   13
      Top             =   -60
      Width           =   2925
   End
End
Attribute VB_Name = "frmEntrarPagos"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private mvarBean As bpedido
Private mvarlistaPagos As Collection
Private control As New CPedido
Private mvarBeanMesa As bMesa
Private cmesa As New cmesa
Private mvarnId As Double
Private Sub cboFormaPago_KeyPress(KeyAscii As Integer)
If KeyAscii <> 13 Then Exit Sub
Dim BFormaPago As BFormaPago
If cboFormaPago.ListIndex < 0 Then Exit Sub
Set BFormaPago = mvarlistaPagos.Item(cboFormaPago.ListIndex + 1)
If Not BFormaPago.bEsDolar Then
    Me.txtMonto.Text = Format(bean.nTotal - bean.nTotPagado, "######.00")
Else
    Me.txtMonto.Text = Format((bean.nTotal - bean.nTotPagado) / bparametro.nTipoCambio, "######.00")
End If
Me.txtMonto.SetFocus
End Sub

Private Sub cmdAgregarPago_Click()
Dim bPago As bPago
If cboFormaPago.ListIndex < 0 Then Exit Sub
If Val(Me.txtMonto.Text) = 0 Then
    utilMensaje.muestraMensaje montoDebeSerMayorACero
    Exit Sub
End If
Set bPago = New bPago
Set bPago.BFormaPago = mvarlistaPagos.Item(cboFormaPago.ListIndex + 1)
bPago.nMonto = Me.txtMonto
bean.lPagos.Add bPago
control.calcularPagos bean
muestraPedido
limpiaControles
Me.cmdRegistrar.SetFocus
End Sub
Private Sub limpiaControles()
Me.cboFormaPago.ListIndex = -1
Me.txtMonto.Text = "00.00"
End Sub
Friend Property Get bean() As bpedido
    Set bean = mvarBean
End Property

Friend Property Set bean(bean As bpedido)
    Set mvarBean = bean
    muestraPedido
End Property

Private Sub cmdAplicarDscto_Click()
If Right(Me.txtDescuento.Text, 1) = "%" Then
    bean.nDescuento = Val(Me.txtDescuento.Text) / 100 * bean.nTotal
Else
    bean.nDescuento = Val(Me.txtDescuento.Text)
End If
control.aplicarDscto mvarBean
control.calcularPagos mvarBean
muestraDscto True
End Sub

Private Sub cmdDeshacerDscto_Click()
control.eliminarDscto mvarBean
muestraDscto False
End Sub

Private Sub muestraDscto(valor As Boolean)
Me.lblDscto.Caption = Format(mvarBean.nDescuento, "#####0.00")
Me.txtDescuento.Text = mvarBean.nDescuento
'Me.txtDescuento.Visible = Not valor
Me.cmdAplicarDscto.Visible = Not valor
Me.cmdAplicarDscto.ZOrder vbBringToFront
frmPedido.lblTotal1.nTotal = mvarBean.nTotal
muestraPedido
End Sub

Private Sub cmdEliminarPago_Click()
Set mvarBean.lPagos = New Collection
control.calcularPagos bean
muestraPedido
End Sub

Private Sub cmdPagos_Click(Index As Integer)
    Select Case Index
        Case 0:
           Me.txtMonto.SetFocus
        Case 1:
           Me.txtDescuento.SetFocus
    End Select
    mvarnId = util.abrirTeclado
End Sub

Private Sub cmdRegistrar_Click()
Dim result As Integer
If Val(mvarBean.nTotPagado) < Val(mvarBean.nTotal) Then Exit Sub
nregistro = 1
result = control.registrar(mvarBean)
Unload Me
End Sub

Private Sub cmdSalir_Click()
Set mvarBeanMesa = New bMesa
mvarBeanMesa.ncodigo = Val(frmPedido.lblMesa.Caption)
If nregistro = 1 Then
On Error Resume Next
    cmesa.setLibre mvarBean
Else
    cmesa.setEnCaja mvarBeanMesa
End If
Unload Me
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
        Case 27:
                util.CerrarTeclado
    End Select
End Sub
Private Sub Form_Load()
    Me.lblTotal1.nTotal = mvarBean.nTotal
    If bean.nDescuento > 0 Then
        muestraDscto True
    End If
End Sub

Friend Property Get listaPagos() As Collection
    Set listaPagos = mvarlistaPagos
End Property

Friend Property Set listaPagos(vData As Collection)
    Set mvarlistaPagos = vData
    llenaFormasPago
End Property

Private Sub llenaFormasPago()
Dim i As Integer
Dim BFormaPago As BFormaPago
cboFormaPago.Clear
For i = 1 To listaPagos.Count
    Set BFormaPago = listaPagos.Item(i)
    Me.cboFormaPago.AddItem BFormaPago.sAbreviatura
Next
End Sub
Private Sub muestraPedido()
Me.lblTotalPagado.Caption = Format(bean.nTotPagado, "####0.00")
Me.lblCambio.Caption = Format(bean.nCambio, "####0.00")
If bean.nTotal > bean.nTotPagado Then
    Me.lblFaltaDescargar.Caption = Format(bean.nTotal - bean.nTotPagado, "####0.00")
Else
    Me.lblFaltaDescargar.Caption = Format(0, "####0.00")
End If
    Me.lblTotal1.nTotal = mvarBean.nTotal
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set mvarBeanMesa = New bMesa
mvarBeanMesa.ncodigo = Val(frmPedido.lblMesa.Caption)
    If nregistro = 1 Then
        cmesa.setLibre mvarBeanMesa
    Else
        cmesa.setEnCaja mvarBeanMesa
    End If
Unload Me
End Sub

Private Sub txtDescuento_GotFocus()
util.marcaTodo txtDescuento
End Sub

Private Sub txtDescuento_KeyPress(KeyAscii As Integer)
If Len(Me.txtDescuento.Text) > 0 Then If Right(Me.txtDescuento.Text, 1) = "%" And KeyAscii <> 13 And KeyAscii <> 8 Then KeyAscii = 0
If Chr(KeyAscii) <> "%" Or Not InStr(Me.txtDescuento.Text, "%") > -1 Then util.soloNumeros KeyAscii, False
If KeyAscii = 13 Then
    util.CerrarTeclado
    cmdAplicarDscto_Click
    Me.cboFormaPago.SetFocus
End If
End Sub

Private Sub txtMonto_GotFocus()
util.marcaTodo txtMonto
End Sub

Private Sub txtMonto_KeyPress(KeyAscii As Integer)
util.soloNumeros KeyAscii, False
If KeyAscii = 13 Then
    util.CerrarTeclado
    cmdAgregarPago.SetFocus
End If
End Sub


